home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _xbsampl.doc < prev    next >
Encoding:
Text File  |  1997-06-06  |  5.3 KB  |  187 lines
  1. ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
  2.  
  3.     ぺけ-ＢＡＳＩＣのサンプルプログラム
  4.  
  5. ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
  6.  
  7.  
  8.   ぺけ-ＢＡＳＩＣの拡張機能と付属の外部関数を使用したサンプルプログラ
  9. ムです。マニュアルと合わせて御覧いただくとわかりやすいのではと思います。
  10.  
  11.  
  12.  
  13.  
  14. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  15.     xbc_inst.bas
  16. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  17.  
  18.   拡張機能のラベルと外部関数 getenv(), _system() を使用した、ぺけ-ＢＡ
  19. ＳｔｏＣの簡易インストーラです。
  20.   XBC001B.LZH をラムディスク上などに展開した後、そのディレクトリで実行
  21. すると、インストールしてくれます。
  22.   この例では COPY しか使用していませんが、他の内部コマンドや外部コマン
  23. ドも使用出来るので、今までバッチファイルでやっていたことが、ＢＡＳＩＣ
  24. で簡単に実現出来ます。
  25.  
  26.  
  27.  
  28. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  29.     files.bas
  30. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  31.  
  32.   拡張機能のコマンドラインの引き数取り込み、及び可変長配列と、外部関数
  33. filesnum(), files() を使用したサンプルです。
  34.   コマンドラインにて指定したファイル（複数指定・ワイルドカードも可）と
  35. そのサイズを表示します。
  36.   これらを使えば、ファイルを選ぶメニューが容易に作成出来ると思います。
  37.  
  38. ◎実行                                   TYPE=CLI:xb files.bas *.bas
  39.  
  40.  
  41.  
  42. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  43.     drvctrl.bas
  44. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  45.  
  46.   外部関数 drvctrl() を使用したサンプルです。
  47.   実行すると、ドライブ番号の若い方から 2HD を探し、ＬＥＤを点滅させて
  48. ディスクの挿入をうながし、イジェクトも行います。
  49.  
  50. ◎実行                                       TYPE=CLI:xb drvctrl.bas
  51.  
  52.  
  53.  
  54. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  55.     iocs1.bas
  56. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  57.  
  58.   外部関数 iocs() を使用したサンプルです。
  59.   IOCS CALL _FNTGET で 16 dot フォントパターンを読み出して、画面上に表
  60. 示します。
  61.  
  62. ◎実行                                     TYPE=CLI:xb iocs1.bas
  63.  
  64.  
  65.  
  66. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  67.     iocs2.bas
  68. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  69.  
  70.   外部関数 iocs(), _arp(), wpoke() を使用したサンプルです。
  71.   IOCS CALL _TXLINE で、テキストプレーン 0,1 上にランダムに直線を引き
  72. ます。
  73.  
  74. ◎実行                                     TYPE=CLI:xb iocs2.bas
  75.  
  76.  
  77.  
  78. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  79.     halftone.bas
  80. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  81.  
  82.   外部関数 v_priority() を使用したサンプルです。
  83.   半透明動作を行います。
  84.  
  85. ◎実行                                      TYPE=CLI:xb halftone.bas
  86.  
  87.  
  88.  
  89. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  90.     rastest1.bas
  91. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  92.  
  93.   外部関数 spfile_def(), palfile_def(), ras_scroll_set(),
  94. ras_scroll_stat() を使用したサンプルです。
  95.   うねうねスクロールの上を 64 匹の猫が走ります。ラスタスクロールさせな
  96. がら 128 枚のスプライトを動かすことが出来る、というわかりやすいデモで
  97. す。
  98.   電脳倶楽部８３号をお持ちなら、「我夢我行」の「ふふやや」をバックに鳴
  99. らしてみるというのも雰囲気に合っていて、ぐー。ZMUSIC を常駐させる時は、
  100.  -M option で多重割り込みモードにすることを忘れずに。PCM を使うと残念
  101. ながら画面が乱れてしまいますが、こればっかりはどうしようもないです。
  102.  
  103. ◎ 15kHz で実行                                  TYPE=CLI:xb rastest1.bas
  104. ◎ 31kHz で実行（編集部制作サンプル）                      TYPE=CLI:xb _rastst1.bas
  105. ◎ ふふやや実行（編集部制作サンプル）                      TYPE=CLI:_ras1fu.bat
  106.  
  107.  
  108. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  109.     rasmake.bas
  110.     rastest2.bas
  111. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  112.  
  113.   上記の外部関数に加え、ras_home(), lzh_extend(), _system() を使用した
  114. サンプルです。
  115.   ラスタスクロール用のデータは繰り返し部分が多いので、LHA.X で圧縮する
  116. と大概 5% 未満になります。そこであらかじめデータを作っておいて、
  117. lzh_extend() で読み込ませることにより、データ作成で待たされることがな
  118. くなります（lzh_extend() の展開速度は十分高速です）。
  119.   またこのサンプルでは ras_home() を使って、ラスタスクロールをジョイス
  120. ティック１で上下左右にスクロールさせることができます。
  121.  
  122. ◎ 15kHz で実行                                  TYPE=CLI:xb rastest2.bas
  123. ◎ 31kHz で実行（編集部制作サンプル）                      TYPE=CLI:xb _rastst2.bas
  124.     ★rasmake.bas によりラスタスクロール用のデータは制作してあり
  125.     　ます。
  126.  
  127.  
  128. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  129.     title1.bas
  130. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  131.  
  132.   ラスタスクロールによるタイトル出現のサンプルです。
  133.   肝心のタイトルがへぼいのは御愛敬。
  134.  
  135. ◎ 15kHz で実行                                TYPE=CLI:xb title1.bas
  136. ◎ 31kHz で実行（編集部制作サンプル）                       TYPE=CLI:xb _title1.bas
  137.  
  138.  
  139. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  140.     title2.bas
  141. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  142.  
  143.   同じくラスタスクロールによるタイトル出現のサンプルです。
  144.  
  145. ◎ 実行                                    TYPE=CLI:xb title2.bas
  146.     ★15kHz モード専用です。
  147.  
  148.  
  149. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  150.     title3.bas
  151. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  152.  
  153.   グラフィック画面を使ったタイトル出現のサンプルです。
  154.   両側からざわわと現れます。
  155.  
  156. ◎ 15kHz で実行                                TYPE=CLI:xb title3.bas
  157. ◎ 31kHz で実行（編集部制作サンプル）                       TYPE=CLI:xb _title3.bas
  158.  
  159.  
  160. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  161.     2dan.bas
  162. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  163.  
  164.   二段独立スクロールです。上半分をジョイスティック１、下半分をジョイス
  165. ティック２で上下左右に動かせます。
  166.   高クロックマシンや X68030 等を使用の方は、ウェイト用のループのカウン
  167. タを増やしておかないと、滅茶苦茶になるかもしれません。
  168.  
  169. ◎ 実行                                      TYPE=CLI:xb 2dan.bas
  170.  
  171.  
  172. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  173.     okuyuki.bas
  174. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  175.  
  176.   対戦格闘の床でやってる、奥行きつきスクロールの真似事です。本当はもう
  177. ちょっとマジメにやらないといけません。
  178.   ジョイスティック１の左右で動かしてみましょう。
  179.  
  180. ◎ 15kHz で実行                                   TYPE=CLI:xb okuyuki.bas
  181. ◎ 31kHz で実行（編集部制作サンプル）                      TYPE=CLI:xb _okuyuki.bas
  182.  
  183.  
  184.  
  185. （ＥＯＦ）
  186.  
  187.